home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 72
/
64er_Magazin_Sonderheft_72_19xx_Markt__Technik_de_Side_A.d64
/
change addr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
37 lines
0 g$="hard":a1=49152:a2=1024:rem betriebsdaten
1 print"[147][142]startadresse eines files aendern
2 [153]"programmiert von n.heusler, 23.8.88
3 print"(c) 64'er, markt & technik
4 [143] * benutzung auf eigene gefahr *
5 [159]1,8,15,"u9
6 print#1,"m-r"chr$(183)chr$(229)chr$(17)
7 fori=1to17:get#1,a$:n$=n$+a$:next
8 ifn$<>"[195]bm dos v2.6 154[177]"thenprint"programm laeuft nur auf vc1541!":goto105
10 open2,8,2,g$+",p,r
11 [141]100:[152]1,"m-r"[199](168)[199](0)[199](1):[161]#1,a$:a[178][198](a$[170][199](0))
12 [152]1,"m-r"[199](6[170]2[172]a)[199](0)[199](2)
13 [161]#1,a$:t[178][198](a$[170][199](0))
14 [161]#1,a$:s[178][198](a$[170][199](0))
15 [160]2
16 [159]2,8,2,"#
17 print#1,"u1:2 0"t;s:gosub100
18 get#2,a$,a$
19 get#2,a$:l=asc(a$+chr$(0))
20 get#2,a$:h=asc(a$+chr$(0))
21 a=l+256*h:print"alte startadresse: "a
22 ifa=a2thenprint"bitte nur einmal aendern !":goto105
23 ifa<>a1thenprint"fehlerhaftes mse-listing !":goto105
24 print"adresse ok. wird geaendert.
25 ah[178][181](a2[173]256):al[178]a2[171]ah[172]256
26 [152]1,"u1:2 0"t;s:[141]100
27 [152]1,"b-p 2 2
28 print#2,chr$(al)chr$(ah);
29 print#1,"u2:2 0"t;s:gosub100:print"alles ok. fertig.":goto106
100 f4=f4+1:input#1,f1,f1$,f2,f3
101 iff1=.thenreturn
102 print"diskettenfehler nr."f1
103 print"text: "f1$
104 print"track:"f2" sektor:"f3" pass:"f4
105 print"programm abgebrochen...
106 [160]2:[160]1